home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-0497 / AMOSLIST / 000021_amos-request@svcs1.digex.net_Fri Apr 4 02:24:28 1997.msg < prev    next >
Text File  |  1998-06-24  |  3KB  |  62 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail1.access.digex.net (8.8.5/8.8.5) with ESMTP id CAA03380
  3.     for <mcox@access.digex.net>; Fri, 4 Apr 1997 02:24:28 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id AAA17594
  6.     for amos-out; Fri, 4 Apr 1997 00:04:43 -0500 (EST)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id AAA17591
  9.     for <amos-list@svcs1.digex.net>; Fri, 4 Apr 1997 00:04:42 -0500 (EST)
  10. Received: from dealer.aristocrat.com.au (dealer.aristocrat.com.au [203.16.181.81])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id AAA03345
  12.     for <amos-list@access.digex.net>; Fri, 4 Apr 1997 00:03:52 -0500 (EST)
  13. Received: by dealer.aristocrat.com.au (8.7.5/8.7.3) with SMTP id PAA09734 for <amos-list@access.digex.net>; Fri, 4 Apr 1997 15:08:38 +1000 (EST)
  14. Received: by club.aristocrat.com.au (Interworks_SMTPpost 8.100 June 5, 1996)
  15.         id AA01; Fri, 4 Apr 1997 16:06:00 
  16. From: AW@null.net (Adam Wilkinson)
  17. Reply-To: AW@null.net (Adam Wilkinson)
  18. Subject: Just plain Subjects (fwd)
  19. Lines: 34
  20. X-Mailer: ADMail 1.7 Copyright 1995 S.T.Brown
  21. To: amos-list@access.digex.net
  22. Date: Fri, 4 Apr 1997 16:06:00 
  23. Message-ID: <19970404.8383258.E284@club.aristocrat.com.au>
  24. Status: RO
  25. X-Status: 
  26.  
  27. On Thu, 03 Apr 97, Jamie B wrote:
  28.  
  29. *** Start of forwarded message
  30. Okay, I'm not going to brag on about anything... All I want to know
  31. is how to use normaly inputs and take "BITS" from it, and make it
  32. NON case sensative...
  33. *** End of forwarded message 
  34.  
  35. For Jamie, and anyone else who is interested...
  36. I wrote a prog once that splits a string into it's words using something
  37. like...
  38.  
  39. For LETTER_NUMBER = 1 To Len(TEXT$)
  40.   LETTER$=Mid$(TEXT$,LETTER_NUMBER,1)
  41.   WORD$=WORD$+LETTER$
  42.   If LETTER$=' ':Rem Found a space must have a whole word
  43.     Proc DO_SOMETHING_WITH [WORD$]
  44.   End If
  45. Next
  46.  
  47. For Case non sensitivity use either Upper$(WORD$) or Lower$(WORD$)
  48.  
  49. If Anyone wants source, which takes an input, extracts the words, searches
  50. for them in a vocabulary or adds to the current vocab if the word doesn't
  51. exist, and builds a list of words you can use after other words and then
  52. spits out random samplings of the words it knows in orders it knows...
  53. <phew>
  54. Then let me know.
  55.  
  56. It was based on a prog called DANI- Dynamic Artificial Non-Intelligence,
  57. Although I renamed my version ELLE- English Language Linkage Editor.
  58.  
  59. -- 
  60. Adam.
  61.  
  62.